home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / disk / misc / fill_v1_2.lha / Fill / PModules / upperChar.e < prev   
Encoding:
Text File  |  1994-05-25  |  87 b   |  3 lines
  1. PROC upperChar (char) RETURN IF (char > 96) AND (char < 123) THEN (char-32) ELSE char
  2.  
  3.